

DEFINE VARIABLE nbr LIKE rqd_nbr.

nbr = "RB650027".

FOR EACH rqm_mstr WHERE rqm_nbr = nbr :
    DISP rqm_nbr rqm_status.
    rqm_status = "c".
END.

FOR EACH rqd_det WHERE rqd_nbr = nbr :
    DISP rqd_nbr rqd_line rqd_part rqd_status.
    rqd_status = "c".
END.
